************************************************************************************************************************************************
*** Christensen and Mandelkern 2021 ****
************************************************************************************************************************************************

***DESCRIPTIVE***

asdoc tabulate EduEcon SurveyYear if SurveyYear > 1995, save(DESCRIPTIVE1)
asdoc sum TechIndxAverage TechIndxComp PolitConcern ProfConcern StakeHoldConcern EduBA EduEcon EduHardSci EduHumanities EduLaw EduOther EduPoliS EduSocialSci AdminGrade Age GenderMale MinistryFin EduEconPerMinistry TaskAnalysisBudget TenureMinistries if SurveyYear > 1995, save(descriptive1.doc), replace


*****Correlations*****
asdoc pwcorr TechIndxAverage TechIndxComp ProfConcern PolitConcern StakeHoldConcern EduEcon MinistryFin EduEconPerMinistry AdminGrade Tenure GenderMale Age TaskAnalysisBudget if SurveyYear > 1995, sig star(.01) bonferroni obs save(CORRELATIONS)


***MEANS***


foreach var in EduBA EduEcon EduHardSci EduHumanities EduLaw EduOther EduPoliSci EduSocialSci {
tabulate `var' SurveyYear if SurveyYear > 1995, summarize (TechIndxAverage)
tabulate `var' SurveyYear if SurveyYear > 1995, summarize (TechIndxComp)
}

***t-test***
foreach var in EduEcon EduBA EduHardSci EduHumanities EduLaw EduOther EduPoliSci EduSocialSci {
di _n "DV=" "`var'"
ttest TechIndxAverage if SurveyYear > 1995, by(`var')
ttest TechIndxComp if SurveyYear > 1995, by(`var')
}

***OLS REGRESSIONS***

asdoc reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduEcon) save(TechIndxAverage) replace
asdoc reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduEcon) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##i.MinistryFin i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_MinFin) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_MinFin) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage)

asdoc reg TechIndxComp EduEcon i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduEcon) save(TechIndxComp) replace
asdoc reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduEcon) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##i.MinistryFin i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_MinFin) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_MinFin) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp)


*** Marginal effect plots***

foreach var in  TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##c.EduEconPerMinistry  AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
margins, dydx(EduEcon) at(EduEconPerMinistry=(0(5)53)) vsquish
marginsplot, yline(0, lpattern(shortdash)) title (`var'_EduEcon##c.EduEconPerMinistry) scheme(s2mono)
graph export `var'_EduEconXEduEconPerMinistry_BW.png, replace

}

foreach var in TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
margins, dydx(EduEcon) at(MinistryFin=(0 1)) vsquish
marginsplot, yline(0, lpattern(shortdash)) title (`var'_EduEcon##i.MinistryFin) scheme(s2mono)
graph export `var'_EduEconXMinistryFin_BW.png, replace

}

foreach var in TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
margins, dydx(EduEcon) at(AdminGrade=(1(1)4)) vsquish
marginsplot, yline(0, lpattern(shortdash)) title (`var'_EduEcon##c.AdminGrade) scheme(s2mono)
graph export `var'_EduEconXAdminGrade_BW.png, replace

}

***INTERACTION MINISTRYFIN#TENURE***

foreach var in TechIndxAverage TechIndxComp {
reg `var' i.MinistryFin##c.TenureMinistries EduEcon AdminGrade GenderMale TaskAnalysisBudget if SurveyYear > 1995, robust
margins, dydx(MinistryFin) at(TenureMinistries=(0(5)45)) vsquish
marginsplot, yline(0) title (`var'_MinistryFinTenure)
graph export `var'_FinTenure.png, replace
}

************************************************************************************************************************************************
*** REGRESSIONS FOR ALL EDU CATEGORIES***
************************************************************************************************************************************************
foreach var in EduBA EduHardSci EduHumanities EduLaw EduOther EduPoliSci EduSocialSci {
reg TechIndxAverage `var' i.SurveyYear if SurveyYear > 1995, robust
reg TechIndxAverage `var' MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
}

foreach var in EduBA EduHardSci EduHumanities EduLaw EduOther EduPoliSci EduSocialSci {
reg TechIndxComp `var' i.SurveyYear if SurveyYear > 1995, robust
reg TechIndxComp `var' MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
}


************************************************************************************************************************************************
***OPROBIT TESTS***
************************************************************************************************************************************************

oprobit TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995, robust
oprobit TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995
oprobit TechIndxAverage i.EduEcon##i.MinistryFin i.SurveyYear if SurveyYear > 1995 , robust
oprobit TechIndxAverage i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxAverage i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 , robust 
oprobit TechIndxAverage i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxAverage i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust

oprobit TechIndxComp EduEcon i.SurveyYear if SurveyYear > 1995, robust 
oprobit TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995, robust 
oprobit TechIndxComp i.EduEcon##i.MinistryFin i.SurveyYear if SurveyYear > 1995 , robust 
oprobit TechIndxComp i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxComp i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 , robust 
oprobit TechIndxComp i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxComp i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 , robust  
oprobit TechIndxComp i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust 

************************************************************************************************************************************************
***ROBSUTNESS TESTS***
************************************************************************************************************************************************

***omitting one wave***

reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear != 1996, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 1996 , robust
reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear != 2006, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 2006 , robust
reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear != 2016, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 2016 , robust

reg TechIndxComp EduEcon i.SurveyYear if SurveyYear != 1996, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 1996 , robust
reg TechIndxComp EduEcon i.SurveyYear if SurveyYear != 2006, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 2006 , robust
reg TechIndxComp EduEcon i.SurveyYear if SurveyYear != 2016, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear != 2016 , robust

***including only one wave***

reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear == 1996, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 1996 , robust
reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear == 2006, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 2006 , robust
reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear == 2016, robust
reg TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 2016 , robust

reg TechIndxComp EduEcon i.SurveyYear if SurveyYear == 1996, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 1996 , robust
reg TechIndxComp EduEcon i.SurveyYear if SurveyYear == 2006, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 2006 , robust
reg TechIndxComp EduEcon i.SurveyYear if SurveyYear == 2016, robust
reg TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear == 2016 , robust


***INTERACT MINISTRYFIN BY EDUECON***

foreach var in TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##i.MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust
margins, dydx(MinistryFin) at(EduEcon=(0 1)) vsquish
marginsplot, yline(0) title (`var'_EduEcon##i.MinistryFin)
graph export `var'_EduEconXMinistryFin_ByEduEcon.png, replace

}


***  ALL REGRESSIONS W/O MinistryFin ***

asdoc reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust, nest cnames(EduEcon) save(TechIndxAverage_woMinistryFin) replace
asdoc reg TechIndxAverage EduEcon AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust nest cnames(EduEcon) save(TechIndxAverage_woMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage_woMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage_woMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_woMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_woMinistryFin)

asdoc reg TechIndxComp EduEcon i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduEcon) save(TechIndxComp_woMinistryFin) replace
asdoc reg TechIndxComp EduEcon AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust nest cnames(EduEcon) save(TechIndxComp_woMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxComp_woMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.EduEconPerMinistry AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxComp_woMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp_woMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp_woMinistryFin)


***  ALL REGRESSIONS only MinistryFin ***

asdoc reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust, nest cnames(EduEcon) save(TechIndxAverage_onlyMinistryFin) replace
asdoc reg TechIndxAverage EduEcon AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust nest cnames(EduEcon) save(TechIndxAverage_onlyMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_onlyMinistryFin)
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_onlyMinistryFin)

asdoc reg TechIndxComp EduEcon i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduEcon) save(TechIndxComp_onlyMinistryFin) replace
asdoc reg TechIndxComp EduEcon AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust nest cnames(EduEcon) save(TechIndxComp_onlyMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp_onlyMinistryFin)
asdoc reg TechIndxComp i.EduEcon##c.AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 1, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxComp_onlyMinistryFin)


***  ALL REGRESSIONS W/O MinistryX ***

foreach var in MinisntryIndustry MinistryAgriculture MinistryChild MinistryCulture MinistryDefence MinistryEnergy MinistryEnvironment MinistryForeign MinistryHealth MinistryJustice MinistryKnowledge MinistryLabor MinistryLocal MinistryPM MinistrySocial MinistryTransport {
asdoc reg TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust, nest cnames(EduEcon) save(TechIndxAverage_wo`var') replace
asdoc reg TechIndxAverage EduEcon AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust nest cnames(EduEcon) save(TechIndxAverage_wo`var')
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage_wo`var')
asdoc reg TechIndxAverage i.EduEcon##c.EduEconPerMinistry AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust  nest cnames(EduEcon_EconPerMinistry) save(TechIndxAverage_wo`var')
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_wo`var')
asdoc reg TechIndxAverage i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & `var' == 0, robust  nest cnames(EduEcon_AdminGrade) save(TechIndxAverage_wo`var')
}

*** INTERACTIONS PLOTS WITHOUT AGE and MinistryFin***

foreach var in  TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##c.EduEconPerMinistry AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust
margins, dydx(EduEcon) at(EduEconPerMinistry=(0(5)53)) vsquish
marginsplot, yline(0) title (`var'_EduEcon##c.EduEconPerMinistry_woMinistryFin)
graph export `var'_EduEconXEduEconPerMinistry_woMinistryFin.png, replace

}

foreach var in TechIndxAverage TechIndxComp {
reg `var' i.EduEcon##c.AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust
margins, dydx(EduEcon) at(AdminGrade=(1(1)4)) vsquish
marginsplot, yline(0) title (`var'_EduEcon##c.AdminGrade_woMinistryFin)
graph export `var'_EduEconXAdminGrade_woMinistryFin.png, replace

}

************************************************************************************************************************************************
***REGRESSIONS FOR OTHER EDUCATIONAL BACKGROUND: EduHardSci, EduLaw ***
************************************************************************************************************************************************

***EduHardSci***

asdoc reg TechIndxAverage EduHardSci i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduHardSci) save(TechIndxAverageEduHardSci) replace
asdoc reg TechIndxAverage EduHardSci MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduHardSci) save(TechIndxAverageEduHardSci)
asdoc reg TechIndxComp EduHardSci i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduHardSci) save(TechIndxCompEduHardSci) replace
asdoc reg TechIndxComp EduHardSci MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduHardSci) save(TechIndxCompEduHardSci)

***EduLaw***

asdoc reg TechIndxAverage EduLaw i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduLaw) save(TechIndxAverageEduLaw) replace
asdoc reg TechIndxAverage EduLaw MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduLaw) save(TechIndxAverageEduLaw)
asdoc reg TechIndxComp EduLaw i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduLaw) save(TechIndxCompEduLaw) replace
asdoc reg TechIndxComp EduLaw MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduLaw) save(TechIndxCompEduLaw)

***EduPoliSci***
asdoc reg TechIndxAverage EduPoliSci i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduPoliSci) save(TechIndxAverageEduPoliSci) replace
asdoc reg TechIndxAverage EduPoliSci MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduPoliSci) save(TechIndxAverageEduPoliSci)
asdoc reg TechIndxComp EduPoliSci i.SurveyYear if SurveyYear > 1995, robust, nest cnames(EduPoliSci) save(TechIndxCompEduPoliSci) replace
asdoc reg TechIndxComp EduPoliSci MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 , robust nest cnames(EduPoliSci) save(TechIndxCompEduPoliSci)


************************************************************************************************************************************************
***OPROBIT TESTS without MinistryFin***
************************************************************************************************************************************************

oprobit TechIndxAverage EduEcon i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust
oprobit TechIndxAverage EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0
oprobit TechIndxAverage i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust 
oprobit TechIndxAverage i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust  
oprobit TechIndxAverage i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust  
oprobit TechIndxAverage i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust

oprobit TechIndxComp EduEcon i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust 
oprobit TechIndxComp EduEcon MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0, robust 
oprobit TechIndxComp i.EduEcon##c.EduEconPerMinistry i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust 
oprobit TechIndxComp i.EduEcon##c.EduEconPerMinistry MinistryFin AdminGrade TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust  
oprobit TechIndxComp i.EduEcon##c.AdminGrade i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust  
oprobit TechIndxComp i.EduEcon##c.AdminGrade MinistryFin TaskAnalysisBudget TenureMinistries GenderMale i.SurveyYear if SurveyYear > 1995 & MinistryFin == 0 , robust 

